home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / UserCode / setPerlMode.tcl < prev    next >
Encoding:
Text File  |  1994-07-07  |  1.1 KB  |  42 lines  |  [TEXT/ALFA]
  1. # FILE: setPerlMode.tcl
  2. #
  3. # LAST UPDATE: 01/07/93 8:37:08 AM
  4. #
  5. # This file contains the following TCL procedure(s):
  6. #
  7. #    setPerlMode -- used with changeMode & Perl programming language
  8.  
  9. # COPYRIGHT:
  10. #
  11. #    Copyright © 1993 by David C. Black
  12. #    All rights reserved.
  13. #
  14. #    Redistribution and use in source and binary forms are permitted
  15. #    provided that the above copyright notice and this paragraph are
  16. #    duplicated in all such forms and that any documentation,
  17. #    advertising materials, and other materials related to such
  18. #    distribution and use acknowledge that the software was developed
  19. #    by David C. Black.
  20. #
  21. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  22. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24. #
  25. ################################################################################
  26.  
  27. # Perl programming mode
  28. proc setPerlMode {} {
  29.     changeMode "Perl"
  30.     uplevel #0 {
  31.         set elecLBrace 0
  32.         set elecRBrace 0
  33.         set electricSemi 0
  34.         set wordWrap 0
  35.         set funcTitle "Sub"
  36.         set funcExpr {^sub *([a-zA-Z0-9_]*) }
  37.         set funcPar 1
  38.         set sortedIsDefault 0
  39.         set prefixString "# "
  40.     }
  41. }
  42.